#!/usr/bin/perl
#
# задача: напечатать числа от 1 до 10, не используя операторов циклов, перехода и жесткого кодирования
#

sub print_range {
  if ($_[0] <= $_[1]) {
    print "$_[0]\n";
    print_range($_[0]+1, $_[1]);
  }
}

print_range(1, 10);

